home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Plus Drive Icons 1.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  68 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Files&Folders\Drives"
  5. "UIPATH 2"="Appearance\System\Microsoft Plus!"
  6. "NAME"="3D Drive Icons"
  7. "VERSION"="1.23"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable Microsoft Plus 3D Drive Icons"
  10. "TEXT 2"="Restore original Drive icons"
  11. "DESCRIPTION 1"="OPTION #1: This lets you enable the special 3D icons that come as part of Microsoft Plus. This will work with Windows 95 (when Microsoft Plus is installed), and should work with all versions of Windows NT, 98, 2000 and Me."
  12. "DESCRIPTION 2"="OPTION #2: This resets all changes and restores the icons to the Windows defaults. Note that if you have customized icons beforehand, you will loose some of your changes."
  13. "DESCRIPTION 3"="Note that you will need to rebuild the icon cache for these settings to take effect."
  14. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.neilrt.cwc.net/"
  17.  
  18. BASE="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons"
  19.  
  20. SUB Plugin_Initialize
  21.  w=GetWinSysDir
  22.  b=FileExists(w + "cool.dll")
  23.  If b=false then
  24.   Call Disable
  25.  end if 
  26. END SUB
  27.  
  28. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  ' Get user's Windows Folder
  30.  W=GetWinSysDir
  31.  
  32.  ' Which button has been clicked?
  33.   i=ElementIndex
  34.   Select Case I
  35.  
  36.  ' Find out if 'Plus!' button has been selected
  37.    Case 1
  38.  ' Change each item to relevent index in cool.dll
  39.  ' 5.25" Floppy
  40.   Call RegWriteValue(BASE & "\5", W & "COOL.DLL,9",1)
  41.  ' 3.5" Floppy
  42.   Call RegWriteValue(BASE & "\6", W & "COOL.DLL,8",1)
  43.  ' Hard Disk
  44.   Call RegWriteValue(BASE & "\8", W & "COOL.DLL,0",1)
  45.  ' CD-ROM Drive
  46.   Call RegWriteValue(BASE & "\11", W & "COOL.DLL,10",1)
  47.  ' Network Drive
  48.   Call RegWriteValue(BASE & "\9", W & "COOL.DLL,1",1)
  49.  ' Disconnected Network Drive
  50.   Call RegWriteValue(BASE & "\10", W & "COOL.DLL,29",1)
  51.  
  52.   
  53.  Case 2
  54.  ' Delete all values!
  55.  For y=5 To 11
  56.  if y<>7 then
  57.   p=RegReadValue(BASE & "\" & y)
  58.   if IsEmpty(p)=false then
  59.    Call RegDeleteValue(BASE & "\" & y)
  60.   end if
  61.  end if
  62.  Next
  63.  end select
  64. END SUB
  65.  
  66. SUB Plugin_Terminate
  67. END SUB
  68.